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Ztitle "PHONE = VAX/VMS Telephone Facility’ 
module phone ( yp Mle 4 bie 04, 
ident='V04-000') = begin 
! 
RITITITIITLI LILLIE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AN 
ONLY IN ACCORDANCE WITH THE TERMS OF S ¢ 
I 


® 
* 
® 
* 
D COPIED * 

H LICENSE AND WITH THE * 
i HIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
iw TRANSFERRED. : 
* 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. . 
® 

® 

* 

* 

* 

* 


'® DIGITAL ASSUMES NO Why: 


BILITY FOR THE USE OR _ RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS 


l 
H NOT SUPPLIED BY DIGITAL. 


RRR EEE EEE EEE EERE REE 
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} Facility: VAX/VMS Telephone Facility, Main Module 
Abstract: This facility allows the user to talk to other users on the 


Local node or any other node. The goal of this facility 
is to simulate a real telephone as closely as possible, 
hopefully resulting in good human engineering. 


Special thanks to Tim Halvorsen, author of TALK, the original 


NOU EWR $0 ODNOAUES WHO OONAUE WN O OBDNAUES WN HO OONAUSWWN—OOONOUE Wh 
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i 
i 
i 
i 
! 
4 VAX/VMS telephone facility. 
1 ‘ 
2 ! Environment: Native, User mode. The following privileges are required for 
: ? full operation; PHONE should be installed with them: 
sii NETMBX To call over the network. 
046 : OPER To ring a phone via broadcasting. 
047 } PRMMBX To talk to any other user. 
; : WORLD To obtain information about other processes. 
050 i For remote communication, we assume all participating nodes 
; 1 have DECnet Phase III, with routing. 
8 5 ; Author: Paul C. Anagnostopoulos, Creation Date: 18 November 1980 
9 3 ; Modified By: 
057 1! v03-004 BLS0251 Benn Schreiber 8-Dec-1983 


PHONE PHONE - 
v04-000 

; 0058 1 
Ee >. 0059 1 
; 60 0060 1 
oo) 0061 1 
> 6 pOe6 1 
ie 0065 1 
: 64 0064 1 
; 69 0065 1 
; 66 0066 1 
; «467 0067 1 
> 68 0068 1 
>; 69 0069 1 
; 0070 1 
; rh 0071 1 
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VAX/VMS Telephone Facility 
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16-Sep-1984 02: 13: 38 VAX-11 8 
14-Sep-1984 1 :5 :2 DISKSVMS 


Increase size of mailbox name buffer to account for 
Siire geornees characters added. Convert $TRNLOG to 


V03-003 PCA1004 Paul C. Anagnostopoulos 8=Nov-1982 
$SASSIGN no Longer returns S $_IVDEVNAM when assignin 
a mailbox that doesn't exist.” It now returns SS$_NO UCHDEV. 


v03-002 PCA1000 LC. Anagnostopoulos 5-0ct-1982 


Remove all sedaemnan to CLISEND_PARSE, which is now obsolete. 


V03-001 PCA0045 Paul Anagnostopoulos 26-Mar-1982 
Major changes to convert from process name to user name. 
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| PHONE PHONE = VAX/VMS Telephone Facility 15-Sep-1984 06:13:38 VAX-11 Bliss-32 V4.0-742 Page 3 
v04-000 Module Declarations 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE.SRCJPHONE .B32;1 (2) 
Peet a 0072 1 &sbttl "Module Declarations’ 

s £6 OOfs Ft | ; ; 

Sa 0074 1! Libraries and Requires: 

: 76 0075 1! 

fee és 0076 1 |. 

: 78 0077 1 Library ‘sys$library:starlet.(32'; ; 
3 79 0078 1 Litera global_data sw Ys ! To suppress generation of external 
s 90 0079 1 require “phonereq'; ! data declarations. 
at. OF 0408 1 

; Ce 0409 1! 

, 85 0410 1 ! Table of Contents: 

;  B4 0411 1! 

; 85 Q41¢ 1 . 

. & 0413 1 forward routine 

cs or 0414 1 phn$phone: novalue, 

; 8 0415 1 phn$init_main: novalue, 

; FF 0416 1 phn$dcl_command_line: novalue, 

; 90 0417 1 phn$queue_smb: novalue, 

; (91 0418 1 phn$kill_smb: novalue, 

; 692 0419 1 phn$prepare_users_target: novalue; 
A. 0420 1 

: «694 0421 1! 

; 95 0422 1 ! External References: 

; 0423 1! 

.. oF 0424 1 ; 

we 0425 1 external routine ; 

: 0426 1 cli$get_value: addressing_mode(general), 
: 100 0427 1 cli$present: addressing_mode(general), 

3 101 0428 1 Lib$Sfree_vm: addressing_mode(general), 

3: 102 0429 1 Lib$get_vm: addressing_mode (general) 

> 103 0430 1 ots$cvt_ti_l: address ing_mode(general), 
> «6104 0431 1 phn$answered, 

s 105 0432 1 phn$busy, 

: 106 04335 1 phn$cmd_parse 

: 107 0434 1 phn$exit_handler, 

: 108 0435 1 phn$facsimile2, 

: 109 0436 1 phn$forced_Link, 

3; 110 0437 1 phn$held 

: 111 0438 1 phn$helpe, 

s V2 0439 1 phn$hungup 

: 113 0440 1 phn$init_slave, 

3 6114 0441 1 phn$init_term, 

2.399 0442 #1 phn$inform, 

; #116 0443 «1 phn$kbd_get, 

: 117 0444 1 phn$kbd_route 

: 118 0445 1 phn$directorye, 

; 2 «119 0446 1 phn$listen, 

s 120 0447 1 phn$make_pub 

> 121 0448 1 phn$mbx_enable, 

3 1$¢ 0449 1 phn$mbx_name, 

ae 0450 1 phn$rang_in, 

: 124 0451 1 phn$rejected, 

: 125 Ot 2g 1 phn$ring_out. 

: 126 0453 1 phn$tal 

> 12? 0454 1 phn$unheld, 

: 128 0455 1 str$trim: addressing_mode(general); 

; 129 0456 1 
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PHON PHONE = VAX/VMS Telephone Facilit 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 4 
v04- 500 Module Declarations : ' 14- Sep- 1382 95 43; 38 DISKSVMSMASTER: CP HONE . SRC JPHONE .B32; (29 * 2) 
: 130 0457 1! . 
s 151 0458 1 ! Own Variables: 
% ¢ 0459 1! 
ae | 0460 1 
: 134 0461 1! The 4 Peete is the head of the SMB queue, which is only manipulated 
s 155 0462 1 ! by this module. 
3 1 0465 1 
, FS7 0464 1 own 
; is 0465 1 smb_queue_head: yectorte. long. 
; iW. 0466 1 initial(rep 2 of (smb_queue_head)); 
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ve! PHONE = VAX/VMS Telephone Facility 19-3007 138% 0g: 13:38 VAX-11 Bliss-32 V4.0-742 Page 5 
v04-000 Module Declarations 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE ..SRCJPHONE .832;1 (3) 
> «(141 0467 1! / 
3 106 re : Global Variables: 
; ite Br 59 i The following declarations constitute all the global data for the facility. 
; 146 png 1! First we declare a buffer to hold our DECnet node name: 
: 147 0475 «1 
; 148 0474 1 global ; 
3 192 pee : own_described_buf fer (phn$gq_node_name,9); 
3 13) Bere : ! Next we declare the variables that will contain the command qualifiers: 
; 138 0479 1 global ; 
3: 6154 0480 1 own described_buffer(phn$gq_switch_hook,1), 
: 155 0481 1 phn$gl_viewport_size: long, 
> 156 EL 1 phn$gb_scroll: Byte; 
3 137 0483 1 \ 
s 138 0484 1 ! Now we declare the head of the PUB chain. 
; 159 0485 1 
: 160 0486 1 global 
: 6161 0487 1 phn$gq_pubhead: vector(2,long] 
: 196 et +3 : initial(rep 2 of (phn$gq_pubhead)); 
3 «6164 0490 1! Finally, we have a byte of global flags necessary for controlling 
: 165 0491 1 ! screen dynamics. 
; 166 0492 1 
: 167 0493 1 global 
: 168 0494 1 phn$gb_flags: byte. 
: 169 0495 1 initial (%b'00000000'); 


<7 | 
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PHONE = VAX/VMS Telephone Facility 16-Sep-1984 06:13:38 VAX-11 Bliss-32 V4.0-742 Page 6 
PHNSPHONE = Mainline Routine 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE.SRCJPHONE .B32;1 (4) 
; 17) og } Bsbttl "PHNSPHONE - Mainline Routine’ 
: 198 0498 1 ! Functional Description: ; 
; 1% 0699 This is the main routine for the PHONE facility. | 
: 178 $20) : Formal Parameters: 
; non 
: 178 $808 1! ; 
; 79 05046 1! Implicit Inputs: 
SE ae | Pe oho 
: 18¢ 0507 1 ! Implicit Outputs: 
: 13? £49 : } global data 
; 19? 8219 ! Returned Value: 
; none 
: 187 O31¢ 1! 
$ 138 Bal? : Side Effects: 
: 190 0515 1 ie- 
> 191 0516 1 
3; 192 0517 1 R 
A Hb be8 § global routine phn$phone: novalue = begin 
: 195 0520 2 own 
: 196 0521 2 routine_table: vector[19,long] initial < 
: 197 0522 2 phn$kbd_get, 
: 198 0523 2 phn$kbd_route, 
: 199 0524 2 phn$cmd_parse, 
: 200 0525 2 phn$talk 
: 201 0526 2 phn$helpe, 
; 202 0527 2 hn$ring_out, 
: 203 0528 2 , : ! Network slave SMB only. 
; 204 0529 2 phn$rang_in, 
; 205 0530 2 phn$hungup, 
; 206 0531 2 phn$busy, 
: 207 0532 2 phn$answered, 
; 208 0533 2 hn$rejected, 
; 209 0534 2 ' ! Network slave SMB only. 
: 210 0535 2 phn$listen, 
; 211 0536 2 phn$directory2, 
; 212 0537 2 phn$facsimilee, 
Be BBG psterge.tin 
; n$he 
: 315 0540 3 Bhn$unheld); | 
3 217 O346 2 local 
3 648 054 § status: long,. ° 
: 219 0544 trninmlst : $itmlst_decl(items=1), 
; $30 Bee? 2 s: ref smb; 
; $56 0547 ter ; , , 
. = 0548 ! The very first thing we do is find out if this VAX is running DECnet, and 
3; 224 0549 ! set up a global buffer with the node name, or null string if not. 
3 $$? b2e8 ! Eliminate any underscore in the name for prettiness. 
: $59 P 0552 Sitmist_init(itmlst=trninmlst, 
| 
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| PHON PHONE = VAX/VMS Telephone Facility 1b-Sep-19 4 06:13:38 VAX-11 Bliss-32 V4.0-742 Page 7 
, V04-000 PHNSPHONE = Mainline Routine 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE . SRC JPHONE .B32; 1 (4) 
> 228 P 0553 (itmcod=|nm$_string ripe tny tates gs de_name(ptr], 

3 2 B22e bufstz=.phn$gq_node_nameLlenJ,ret len=phn$gq_node_name[len])); 
3 1 p B228 status = $trninm(attr=Z%ref(lnm$m_case_ blind) 

; ¢< ¢ P 055 tabnam=$descriptor('LAMSSYSTEM'), 

3 ¢ P 0558 Lognam=$descriptor('SYSS$NODE'), 

: § 4 P 0559 acmode=Zref(psl$c_exec), 

; 5 0560 itmlst=trninmlst); 

> 236 0561 , 

s gor R206 if .status eqlu ss$_nolognam then 

; 238 056 phn$gq_node_nameLlen] = 0 

; Si0 0564 else ( 

; 240 0565 check (.status); 

> 241 0566 4 if ch$rchar(.phn$gq_node_name[ptr]) eqlu '_' then ( 

3 seg 0567 4 dec (phn$gq_node_name([len]); 

; 24 0568 4 inc (phn$gq_node_name([ptrJ); 

; 244 0569 3 ds 

; 245 0570 2); 

; 246 0571 2 : 

; 247 0572 2 ! It is possible that we have been fired up as a network slave for 

>; 248 0573 2 ! someone on a remote node that wants to talk to someone on our node. 

: 249 0574 2! The following routine will check for this, and will never return 

; 250 0575 § ! if it is the case. 

3 gy 0576 

; 252 0577 2 phn$init_slave(); 

: go 0578 2 ; 

> 254 0579 2! I guess not. Begin an interactive session by initializing. 

3 @9 0580 2 

> 256 0581 2 phn$Sinit_main(); 

s @or p2ee 2 ‘ : ; ; 

; 258 0583 2 ! This is the main processing loop. We wait for routines to put Steering 
: 259 0584 2 ! Message Blocks on the queue. We then remove them one by one and call 

: 260 0585 2! the pects tee ——s message routine, peesing it the message text in 

3 $0 beeo 2! the block. Whenever the queue empties, we go back to waiting. 

3 $65 0588 loop ( 

3; 264 0589 : 

3 $e? Bay ; '! Wait for an SMB to be placed on the queue. There may already be one. 
: 267 F454 3 status = $clref(efn=phn$k_smbefn); 

: 268 0593 4 if .status nequ ss$_wasset then ( 

; 269 0594 4 check (.status); 

; e270 0595 4 status = Swaitfr(efn=phn$k_smbefn); 

3 er 9296 4 check (.status); 

; $i¢ 0597 3 3 

ef 0598 ; ; 

: 274 0599 ' We have at least one SMB. Go into a loop voney sng them from the 
g $2 8600 ; ' front of the queue. When we empty the queue, go back and wait. 
; 37 Bee ? while not remque(.smb_queue_head([0J],s) do ( 

3 $35 $60 4 ! If the SMB type code is valid, call the appropriate 

: 280 0605 4 ! steering message routine. Pass it the message text 

§ SB B08 2 ' descriptor, which it can clobber. 

; $83 0608 4 if (.sfsmb_u_typel gequ 1) and | . 

3; 6284 0609 4 (.sCsmb_w_type] lequ Zallocation(routine_table)/4) then 


<v 
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PHON PHONE = VAX/VMS Telephone Facilit 16-Sep-1984 02:15:5 VAX=11 Bliss-32 V4.0-742 a P 
Ve 600 PHNSPHONE - Mainline Routine . 12-808- 1 3b 1 13:38 DISKSVMSMASTER: CPHONE . SRCJPHONE .B32; fag (4) Vv 
: $8 felt (.routine_tableC.s{smb 1-13) (sCsmb » 
3 -routine_tablel.s€smb_w_typeJ- sCsmb_q_ms 
3; gor Belg 4 else ; . , 
> 288 0615 4 phn$inform(phn$_badsmb) ; 
; 289 0614 4 ; 
; 290 0615 4 ' Get rid of the SMB. 
: 291 0616 4 
; 0617 4 phoa$Skill_osmb(.s); 
; 2 0618 3 ); 
> 294 0619 : ); 
3 295 post 
; 296 0621 1 end; 


-TITLE PHONE PHONE = VAX/VMS Telephone Facility 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 


40 45 54 53 59 53 24 4D 4E 4C 00000 P.AAB: .ASCII \LNMSSYSTEM\ ; 
QO00A -BLKB 2 
00000 QOO0C P.AAA: .LONG 10 : 
00000000" 00010 «ADDRESS P.AAB : 
45 44 4F 4E 24 53 59 53 00014 P.AAD: .ASCII \SYSSNODE\ : 
00000008 Q001C P.AAC: .LONG : 
00000000" 00020 -ADDRESS P.AAD 3 


-PSECT SOWNS,NOEXE,2 


00000000" 00000 SMB_QUEUE_HEAD: 
ADDRESS SMB_QUEUE_HEAD ; 
00000000' 00004 ADDRESS SMB~QUEUE—HEAD : 
000000006 000000006 000000006 000000006 000000006 000000006 00008 ROUTINE_TABLE: 
.ADDRESS PHNSKBD GET, PHNSKBD_ROUTE, 
PHNSCMD PARSE, PHNSTACK, PHNSHELP2, 
PHNSRING. OUT 
0020 LONG 
0024 “ADDRESS oPNSRANG IN, PHNSHUNGUP 
0038 
003¢ 


00000000 
000000006 000000006 000000006 000000006 000000006 PHNSBUSY, - 


coe PHN SANSWERED, PHNSREJECTED 

“ADDRESS PHNSLISTEN, PHNSDIRECTORY2, 
PHNSFACSIMILE2, PHNSFORCED LINK, - 
PHNSHELD, PHNSUNHELD 

.PSECT $GLOBAL$,NOEXE,2 

00000009 00000 PHNSGQ_NODE_NAME 


«LO ; 
00000000" 00004 — PHN$GQ_NODE _NAME +8 : 


00000000 
000000006 000000006 000000006 000000006 000000006 000000006 


00008 

00011 “BLKB 

00000001 00014 PHNSGO_silI TCH_HOOK 

00000000" 00018 “ADDRESS PHNSGQ_SWITCH_HOOK+8 : 
001C BLKB. 1 
0010 
00020 


—-OWDO 


“BLKB 3 
PHNSGL_ViEWPORT_SIZE:: 


K 11 
—_ PHONE = VAX/VMS Telephone Facilit 16-Sep-1984 02:15: VAX- 
$2500 PHNSPHONE - Mainline Routine : 127308- 1384 9 : 333 DISK 


RF 


Bliss-32 V4.0-742 9 
SMASTER: CPHONE . SRC PHONE .B32; 479 * a) 


-BLKB 4 
00024 PHNSGB_SCROLL:: 
-BLKB 1 


-BLKB 3 
00000000' $0038 PHNSGQ -PUBHEAD: : 

DRESS PHNSGQ ~PUBHEAD 3 
meas 9 Cas “ADDRESS PHN$GQ_PUBHE AD : 
000350 PHNSGB FLAGS: : 0 


EXTRN PHNS_OK, PHNS_ANSWERED 
EXTRN PHNS “BUSYCALL - PHNS_CANCALL 


X H N 
TRN PHNS$_DIRCAN, nn FACS EA 
-EXTRN PHNS$~HELPCAN UNGUP 
“EXTRN PHNS$_JUSTRANG, PPNNS" “LOGGEDOF F 


INGMAIL | 

TEXTRN PHNS~ =BADCHD PHNS _BADHELP | 

“EXTRN PHNS~BADMAILCMD | 

PHNS_BADSPEC | 
SING 


UNCALL 

TEXTRN PHNS"LINKERROR, PHNS$_NEEDUSER 

ZEXTRN PHNS-NOCALL, PHNS gNOROLDS 

-EXTRN PHNS"NOPORTS, PHNS_NOPRIV | 
-EXTRN PHNS"NOPROC, PHNS NOTCONV 
-EXTRN PHNS"ONLYNODE, PHRS$_PHONEBUSY | 
“EXTRN PHNS— -REMOTEERROR | 
“EXTRN PHNS~TARGTERM, PHNS UNPLUGGED 


NSBOSY 
D PHNSEXIT_HANDLER 
*EXTRN PHNSFACS CSIMILES og NSF ORCED_ LINK 


“EXTRN PHNSHELD, P 
“EXTRN PHNSHUNGUP mritine SLAVE 
“EXTRN PHNSINIT arere Q 


F 
“EXTRN PHNSKBD_GET, PHNSKBD ROUTE 
SEXTRN PHNSDIRECTORY2, PHNSCISTEN 
"EXTRN PHNSMAKE PUB, buNSHBX ENABLE 
-EXTRN PHNSMBX_RAME, PHNSRANG_IN 
eEXTRN PHNSREJECTED. PHNSRING_OUT 
“EXTRN PHNSTALK, PHNSUNHELD 

“EXTRN STRSTRIM, SY SSTRNT NM 

“EXTRN SYSSCLREF, SYSSWAITFR 


.PSECT S$CODE$,NOWRT,2 | 

3c 00000 ENTRY PHNSPHONE , Save R2,R3,R4,R5 ; 0518. 

55 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R5 : | 
54 0000" CF 9E 00009 MOVAB PHNS$GQ ONObE _NAME, R4 F | 
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PHON PHONE = VAX/VMS Telephone Facilit 1% -Sep- VAX=11 s-32 V4.0-742 1 
Oss 500 PHNSPHONE - Mainline Routine. 17n 808-1 8he 98:18:38 The ehk tea tate Sécapnone.e32:1°%" (ao 
SE 18 C2 OOO0E SUBL2 #24, SP : 
5 08 AE 3 0011 MOVAB TRNLNMLST, $$ITMBLKPTR + 0554 
80 64 BO 00015 MOVW § PHNSGQ_NODE NAME, (S$$ITMBLKPTR)+ : 
80 02 BO 00018 MOVW #2, ($SITMBLKPTRS+ : 
80 04 A& DO 0001B VL_  PHN$GQ_NODE_NAME+4, ($S$ITMBLKPTR)+ : 
80 64 9E OO01F MOVAB PHNSGQ"NODE-NAME, ($$ITMBLKPTR) + : 
eee ee 0800 
08 AE 07 D0 00027 VL 8( : 
08 AE 9F 00028 PUSHAB 8(SP) : | 
0000' CF 9F 000 : PUSHAB P.AAC : 
0000" cr 9F 900 PUSHAB P.AAA : | 
10 AE 02000000 8F DO 00036 VL #33554432, 16(SP) : 
10 AE 9F 0003E PUSHAB 16(SP) : 
000000006 00 05 FB 00041 CALLS #5, SYS$TRNLNM : 
53 50 pO 00048 MOVL RO, STATUS : 
0000018C =F 53 D1 00048 CMPL Or ATOS. Hes ; 0562 | 
04 12 00052 BNEQ 1$ : | 
64 B4 00054 CLRW § PHNSGQ_NODE_NAME : 0563) 
14 11 00056 BRB 3$ : 
05 53 £8 00058 1$: LBS STATUS, 2$ + 0565 | 
53 DD 00058 PUSHL STATUS ; | 
65 01 FB 0005D CALLS #1, LIBSSIGNA ; 
SF OBE 04 B4 91 00060 2$ CMPB SPHINSGO _NODE ANAME +4, #95 t 0566 
05 12 00065 BNEQ 3$ : | 
64 B7 00067 DECW  PHNSGQ_NODE_NAME : 0567 
04 Ad D6 00069 INCL  PHN$GQ~NODE ~NAME+4 + 0568. 
00006 CF 00 FB 0006C 3$ CALLS #0, PHNSINIT_SLAVE : 0577 
0000V CF 00 FB 00071 CALLS #0, PHNSINIT-MAIN : 0581. 
03 DD 00076 4$ PUSHL #3 ; 0592 | 
000000006 00 01 FB 00078 CALLS #1, SYSSCLREF F 
53 50 0 0007F MOVL RO, STATUS ; | 
09 53 D1 00082 CMPL STATUS, #9 : 0593 
1¢ 13 00085 BEQL 6$ 3 
05 53 £8 00087 BLBS STATUS, 5$ : 0594 | 
53 DD OOOBA PUSHL STAT ; | 
65 01 FB 0008C CALLS #1, LIBSSIGNAL ; 
03 DD OOO8F 5S: PUSHL # : 0595 
000000006 00 01 FB 00091 CALLS #1, SYSSWAITFR : 
53 50 pO 00098 MOVL RO, STATUS ; | 
05 53 £8 00098 BLBS = STATUS, 3 > 0596 
53 DD 0009E PUSHL STATUS ; 
65 07 FB OO0A0 CALLS #1, LIBSSIGNAL ; 
52 0000' DF OF O00A3 6$: REMQUE @SMB_QUEUE OHEAD, S + 0602 | 
CC 1D OOOA8 BVS 4$ : | 
OA Ae 83 OOOAA TSTW =: 10S) : 0608 | 
18 13 OOOAD BEQL «6 7$ ; | 
OA A2 Bi OOOAF CMPW 3s), #19 + 0609 | 
12 1A 90083 BGTRU 7$ : 
50 OA Ag 3c 00085 MOVZWL 10(S), > 0611 
50 0000'CF40 D0 00089 MOVL  ROUTINE_TABLE-4CROJ, RO : 
OC A2 9F OOOBF PUSHAB 12(S) : 
60 01 FB b00C2 CALLS #1, (RO) ; 
0B 11 000C BRB 3 ; 
000000006 8F DD 990¢7 7$: PUSHL #PHNS BADSMB ; 0613 
00006 CF 01 FB 000CD CALLS , PANSINFORM : 
52 DD 00002 8$ PUSHL 4 : 0617 
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1 Rsbttl *PHNSINIT_MAIN = Initialize Our Wonderfullness' 


1 
1 “Funetionet Description: 
13 This routine is called at the very beginning of execution 
! to initialize everything. 
1 ' Formal Parameters: 
: none 
1 i Implicit Inputs: 
: global data 
1 i Implicit Outputs: 
: global data 
1 ' Returned Value: 
! non 
: \ Side Effects: 
1 ie 
: 
$ global routine phn$init_main: novalue = begin 
2 own 
2 exit_status: lon Age 
2 exit_control_block: vector(4,lon ng? 
§ inittsito. phn$ex t_handler,1,exit_status); 
own 
2 tied own_described_buffer(user_name,12); 
in 
: get_name = uplit(word(12), eet: ine username), 
2 Long(user_name+ 
2 Long(user_ ~name), 
§ Long(0)); 
2 local 
r4 status: long, ’ 
§ op: ref pub; ! Pointer to our PUB. 
2 
2 ! We begin by obtaining our user name. 
5 status = sere Femisteae getjpiefn, 
itmlst=get_name); 
check (.statu 
status = ag phn$k_getjpiefn); 
§ check (.status); 
str$trim(user _name,user_name,user_name) ; 
é ' Now we can create a PUB to represent ourselves, known as ‘‘our PUB’. Our 
2 ! PUB is always assumed to be the first one on the PUB chain. 
status = gaataghe pub(user_name,op); 
check (.statu 
op(pub_v scemporary] = false; 
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PHONE = VAX/VMS Telephone Facility 16-Sep-1984 02:15:58 VAX-11 Bliss-32 V4.0-742 Page 1 
PHNSINIT_MAIN = Initialize Our Wonderfullness 122807 384 15:53:38 DISKSVMSMASTER: CPHONE.SRCJPHONE .B32; 1 . (5 
0679 
0680 ; : Now we have to assign ourselves to our receive mailbox, the mailbox that 
0681 ! other users will send us messages in. The mailbox may already have been 
pons ! created by some other user trying to call us, so first we try to assign 
068 : te it. 
0684 ‘ 
0685 begin 
0686 local ; 
+444 local _described_buffer(mbx_name,4+32); 
0689 3 phn$mbx_name(user_name,mbx_name) ; 
P 0690 ; status = $assign(devnam=mbx_name 
0691 chan=opCpub_w_channel)); 
0692 4 if (.status nequ ss$_nosuchdev 
0695 3 and (.status nequ ss$_ivdevnam) then 
0694 4 check (.status) 
0695 4 else ( { 
0696 4 ! Nope, our mailbox doesn't exist. Try to create a permanent 
0697 4 ! mailbox with the name. Mark it for deletion so we don't leave 
0698 4 ! crud around Later. 
0699 4 
0700 4 status = $crembx(prmflg=1, 
P0701 4 chan=opCpub_w_channel], 
P0702 4 maxmsg=phn$k_mbxsize, 
0703 4 : Lognam=mbx name) ; 
0704 5 if .status nequ ss$_nopriv fhen ( 
0705 5 check (.status); 
0706 5 status = $delmbx(chan=.opCpub_w_channelJ); 
0707 5 check (.status); 
0708 5 ) else ( 
0709 5 ; 
0710 5 ! Too bad, we don't have the privilege to create a permanent 
0711 5 ! mailbox. Try to create a temporary one so the guy can at 
ocig 2 ! least talk to him/herself. 
P0714 5 status = $crembx(prmflg=0, 
P0715 5 ShansepL pe wochannel), 
P0716 5 maxmsg=phn$k_mbxsize, 
0717 5 Lognam=mbx _name) ; 
0718 5 check (.status); 
0719 4 ds 
0720 3); 
0721 2 end; 
b756 § 
072 ! Now we can enable our mailbox, allowing an AST to be delivered when someone 
Oise § ! sends us a message. There may already be a message waiting. 
6559 2 phn$mbx_enable(); 
0728 5 ! Now we have to obtain the various goodies from the command Line. This is 
0780 2 ! done after enabling our mailbox so any messages from other people will be 
O73 § ! handled before any subcommand included on the PHONE command. 
o73¢ 2 phn$dcl_command_Line(); 
0734 s ! Finally we initialize the user's terminal, This is done last so that 
0735 2 ! anything the user types will be handled after any subcommand included 
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PHONE PHONE = VAX/VMS Telephone Facility 1p=3007 138% 9g: 13: 38 VAX=-11 Bliss-32 V4.0-742 P 
v04-000 PHNSINIT_MAIN = Initialize Our sehdortuliness 14-Sep-1984 1 sé DISKSVMSMASTER: CPHONE.SRCJPHONE .B32; 1 
: | 0736 ' on the PHONE command. 
: 41 0737 
: 414 0738 status = phn$init_term(); 
; 415 0739 check (.status); 
; 416 0740 
: tif toe ! From this point on, we want to perform some clean-up if the user exits. 
; 419 Pk status = $dclexh(desblk=exit_control_block); 
; 420 0744 2 check (.status); 
: 421 0745 2 
; 422 0746 2 return; 
; 425 0747 2 
s 424 0748 1 end; 


-PSECT S$PLIT$,NOWRT,NOEXE,2 


QOOC 00024 P.AAE: .WORD 12 

0202 00026 WORD 514 
00000000" 00028 -ADDRESS USER_NAME+8 
00000000" Boge ADDRESS USER_NAME 
00000000 00030 -LONG 0 


-PSECT S$OWN$,NOEXE,2 
00054 EXIT_STATUS: 7 
00000000 00058 EXIT_CONTROL_BLOCK: 


000000006 0005C -ADDRESS PHNSEXIT_HANDLER 

00000001 Benge -LON 

00000000" 00064 Maes EXIT_STATUS 

0000000C 000 Oe 12 

00000000" 0006C «ADDRESS USER_NAME+8 
00070 “BLKB. 12 


GET_NAME = P.AAE 

.EXTRN SYSSGETJPI, SYSSASSIGN 
“EXTRN SYSS$CREMBX, SYSSDELMBX 
“EXTRN SYSS$DCLEXH 


-PSECT $CODES,NOWRT,2 


007¢ 00000 .ENTRY PHNSINIT_MAIN, Save R2,R3,R4,R5,R6 

56 000000006 00 9E 00002 MOVAB SYSS$CR REM MBX, R6 
55 0000' CF 9€ 00009 MOVAB USER_NAME, RS 
54 000000006 00 i 0000E MOVAB LIBSSIGNAL, R4 
SE 30 C2 0001 SUBL2 #48, SP 

. 90018 CLRQ. = = (SP) 

7E 04 OOOIA CLRL -(SP) 

0000" CF 9F 0001¢ PUSHAB GET_NAME 
7E 7C 9020 CLRQ = -(SP) 
01 oD 00 2 PUSHL #1 
000000006 00 07 FB 0024 CALLS i, SYSSGETJPI 

53 50 pO 00028 MOVL RO, 
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0667. 
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PHONE PHONE = VAX/VMS Telephone Facility 1o=300°138% 06:13:38 VAX-11 Bliss-32 V4.0-742 ge 15 
v04-000 PHNSINIT_MAIN = Initialize Our donder ful iness 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE.. SRC IPHONE .B32; ¥ (5) 
05 33 EB 00036 BLBS STATUS, 1$ : 0668 
53° DD 00031 PUSHL STATUS ; 
64 01 FB 00033 CALLS #1, LIBSSIGNAL : 
01 DD 00036 1$: PUSHL #1 : 0669 
000000006 99 01 FB 00038 CALLS #1, SYSSWAITFR : 
5 50 DO 0003F OVL RO, STATUS : 
05 53 CE 44 od BLBS STATUS, 2$ ; 0670 
53 DD 0004 PUSHL STATUS : 
64 01 FB 00047 CALLS #1, LIBSSIGNAL : 
55 DD OO04A 2$: PUSHL R5 : 0671 
55 DD 0004C PUSHL R5 : 
55 0D ied PUSHL R5 : 
000000006 00 03 FB 0005 CALLS #3, STRSTRIM : 
4020 8F BB 00057 PUSHR #*M<R5,SP> : 0676 
0000G CF 92 FB 0005B CALLS #2, PHNSMAKE_PUB : 
53 0 DO 00060 MOVL RO, STATUS : 
05 53 EB 00063 BLBS STATUS, 3$ : 0677 
53 DD 00066 PUSHL STATUS : | 
64 01 FB 00068 CALLS #1, LIBSSIGNAL : | 
52 6E DO 00068 3$: MOVL oP, R : 0678 
OOFO C2 04 BA O006E BICB2 #4 240(R2) : 
04 AE 24 DO 00073 MOVL #36, NAME > 0687 
08 AE OC AE 9E 00077 MOVAB MBX *NAMETS. MBX _NAME +4 ; 
04 AE 9F 0007C PUSHAB MBX_NAME : 0689 
55 DD 0007F PUSHL R5 ~ : 
0000G CF 02 FB 00081 CALLS #2, PHNSMBX_NAME : 
7E 7C 00086 CLRO - ; 0691 
52 OOF4 C2 9E 00088 MOVAB 244(R2), R2 : 
52 DD 0008D PUSHL R2 : 
10 AE 9F OO008F PUSHAB MBX_NAME : 
000000006 00 04 FB 00092 CALLS #4, SYSSASSIGN : 
53 50 DO 00099 MOVL RO, STATUS : 
00000908 =8F 53 D1 0009C CMPL STATUS, #2512 : 0692 
09 13 000A3 BEQL 4 : 
00000144 ~=-8F 53 D1 000A5 CMPL STATUS, #324 : 0693 
45 12 OOOAC BNEQ : 
04 AE 9F OOOAE 4$: PUSHAB MBX_NAME ; 0703. 
7—E 7C 00081 CLROQ -(SP) : 
7E D4 00083 CLRL -(SP) : 
7E 0100 8F 3c 00085 MOVZWL #256, -(SP) : 
52 DD OOOBA PUSHL R2 3 
01 DD 000BC PUSHL #1 ; 
66 07 FB OOOBE CALLS #7, SYSSCREMBX : 
53 29 DO 000C1 MOVL RO, TUS ; 
24 53 D1 000C4 CMPL STATUS, #36 : 0704 
14 13 000C7 BEQL § : 
05 53 —8 000C9 BLBS STATUS, 5$ : 0705. 
53 DD OO0CC PUSHL STATUS 3 
64 01 FB OOOCE CALLS #1 LIBSSIGNAL : 
7E 62 3C 000D1 5$: MOVZWL (Re) (SP) : 0706 
000000006 00 01 FB 000D4 CALLS &YS$DELMBX ; 
13. 11 000DB BRB ae 3 
04 AE OF 6000p 6$: PUSHAB MBX_NAME : 0717 
7E 7C 000E0 CLRO -(SP) : 
7E D4 000E2 CLRL -(SP) : 
7E 0100 + C QO0E4 MOVZWL #256, -(SP) 5 
2 DD OO0E9 PUSHL R2 : 


12 
4 3 PHONE = VAX/VMS Telephone Facilit 15-Sep-1984 06:13:38 VAX-11 Bliss-32 V4.0-742 Page 16 
00 PHNSINIT_MAIN = Initialize Our Nehdortul ness 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE.SRCJPHONE .B32; 1 (5) 
43 D4 OQOOEB CLRL -(SP) 5 
$6 07 FB QOOED CALLS 4&7, SYS$CREMBX : 
5 5 dO ita 7$: MOVL RO, STATUS : 
05 53 £8 OOOFS 8$: BLBS STATUS, 9$ > 0718 
5 DD Bp Ore PUSHL STATUS 3 
64 01 FB QOOF CALLS #1, LIBSSIGNAL 3 | 
0000G CF 00 FB OOOFB 9$ CALLS #0, PHNSMBX_ENABLE 3 0726 
O000v CF 00 FB 00100 CALLS #0, PHNSDCL-COMMAND_LINE 3 0732 
000GG CF 00 FB 00105 CALLS #0, PHNSINIT_TERM 3; 0738 
53 50 DO Q010A MOVL RO, STATUS 3 
05 53 €8 00100 BL8S STATUS, 10$ 3; 0739 
53 DD get PUSHL STATUS 3 
64 01 FB 0011 CALLS #1, LIBSSIGNAL ; 
FO AS 9F 00115 10$:  PUSHAB EXIT_CONTROL BLOCK > 0743 
000000006 00 01 FB 00118 CALLS #1, SYSSDCLEXH ; 
53 50 DO OO11F MOVL RO, STATUS F 
05 53 €8 00122 BLBS STATUS, 11$ ; 0744 
53 DD 00125 PUSHL STATUS : 
64 01 FB 00127 CALLS #1, LIBSSIGNAL P 
04 0012A 118: ET 3 0748) 
; Routine Size: 299 bytes, Routine Base: S$CODE$ + O00DB 
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| PHONE PHONE = VAX/VMS Telephone Facility | , ak Sa bY 96:13:38 VAX-11 Bliss- 
v04-000 PHNSDCL_COMMAND_LINE = Get Command Line Goodies 14-Sep-1984 12:53:28 DISKSVMSMASTE 
; : § 54 : Rsbttl "PHNSDCL_COMMAND_LINE = Get Command Line Goodies’ 

: 628 0751 1: Functional Description: : 

: 429 OF e6 , } This routine is called to ''parse the command Line’’. ALL the work 

; 430 0755 1! has been done by DCL, but we need to use the callback mechanism 

: rth bree : to get the information. 

: 433 0796 Formal Parameters: 

: 435 0758 1: oy 

: 436 0759 1°! Implicit Inputs: 

; : ‘ 3708 : } global data 

: 439 Or6e | i Implicit Outputs: 

: rt Bez : global data 

; ry Bree : Returned Value: 

; ; non 

> 444 0767 1! 

3 re th 4 ; Side Effects: 

: 447 0770 1 i-- 

: 448 0771 1 

: 449 0772 1 

; rt fhe 3 global routine phn$dcl_command_line: novalue = begin 

: 452 0775 2 local 

3 $27 o776 § status: long; 

: 455 as ee 

: +28 144.4 § ! First we get the switch hook character as specified by the qualifier. 

: res ores § cli$get_value(describe('SWITCH_HOOK') ,phn$gq_switch_hook); 

: 460 0783 2 ! Now we get the viewport size, as specified by the qualifier. We have 

; ret) ora 2 ! to convert the value to binary and make sure it's within the valid range. 
; 463 0786 : begin 

: 464 0787 3 local 

3 re #1 th» 4 ; local_described_buffer(size_buf,10); 

; 467 0790 3 cli$get_value(describe(*VIEWPORT SIZE*),size_buf); 

: 468 0791 3 status = ots$cvt_ti_l(size_buf,pfin$gl_viewport_size,4,%b'11"); 

; 469 Bas ; if .status eqlu ss$_normal then | ar , ; 

: 470 079 phn$gl_viewport_size = min(max(pub_k_minlines,.phn$gl_viewport_size), 
: $3) fhe: 3 ae pub~k~maxLines) 

: ot? B78 ; ‘ phn$gl_viewport_size = pub_k_maxlines; 

; eng; 

; 675 0798 2 

3 rhe 4444 ! Now we get the scroll flag, as specified by the qualifier. 

: ore BB03 phn$gb_scroll = cli$present(describe(*SCROLL")); 

: 480 $808 ! Now we have to retrieve the command Line tokens. If present, these 

: 481 0804 ! make up a phone command that we are to execute first. Sit in a loop 

; 482 0805 ! and queve cmd_parse steering messages for each token. 
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PHONE = VAX/VMS Telephone Facility 19=300" 138% 96:13:38 VAX-11 Bliss-32 V4.0-742 
PHNSDCL_COMMAND_LINE = Get Fonnand Line Goodies 14-Sep-1984 12:53:2 DISKSVMSMASTER: (PHONE. SRC IPHONE .832; ia 


oO 
fe] 
oO 


incru i from 1 to 4 do ( 


local 
local_described_buffer(token_buf,80); 


cli$get_ sed 5 » 1 -i from 1 to 4 of s 
1]: describe(' TOKENT") 
$3: describe('TOKEN2'); 
describe('TOKENS'); 
describe('TOKENG'); 
str$trim(token ia. token_ buf ,token_buf); 
if .token_bufClen] gegu 1 then ( 


phn$queue_smb(smb__cmd_parse,describe(' ')); 
phn$queue_smb(smb__cmd_ “parse. token_ buf); 


token_buf); 


); 
); 
' Now we can queue a carriage return to end the command. It doesn't hurt 
! if there wasn't a command. 
phn$queue_smb(smb__cmd_parse,describe(%char(ret))); 


return; 
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end; 


-PSECT SPLITS,NOWRT,NOEXE,2 
4B 4F 4F 48 SF 48 43 54 49 57 53 ts P.AAG: .ASCII cae daaiaanh 


0003 BLKB 
Q000000B 00040 P.AAF: .LONG 11 
00000000" 00044 -ADDRESS P.AAG 
45 5A 49 53 5F 54 52 4F 50 57 45 49 56 00048 P.AAI: .ASCII \VIEWPORT_SIZE\ 
00055 -BLKB 3 
00000000 00058 P.AAH: .LONG 
we ag 0005¢ -ADDR P.AAI 
4C 4C 4F 52 43 53 00060 P.AAK: ASCII \SCROLL\ 
00066 -BLKB 2 
00000006 Bagge P.AAJ: .LONG 6 
00000000" 0006C¢ “ADDRESS P.AAK 
31 4E 45 4B 4F 54 00070 P.AAM: ASCII \TOKEN1\ 
00076 “BLKB 2 
00000006 Babee P.AAL LONG .. 
00000000" 0007C¢ "ADDRESS. P 
32 46 45 4B 4F 54 Q0080 P.AAO: .ASCII \TOREN2\ 
0086 “-BLKB 2 
00000006 00088 P.AAN: .LONG 6 
sett ae? 008C -ADDRESS P.AAO 
33 4€ 45 4B 4F 54 Q0090 P.AAQ: .ASCII \TOKEN3\ 
44 -BLKB 2 
00000006 00098 P.AAP: .LONG 6 
00000000" 0009C «ADDRESS P.AAQ 
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P ae PHONE = VAX/VMS Telephone Facility 16-Sep-1984 96:13:38 VAX-11 Bliss=-32 V4.0-742 ge 19 
Vv 00 PHNSDCL_COMMAND_LINE = Get Command Line Goodies 14-Sep-1984 12:53:2 DISKSVMSMASTER: CPHONE . SRCJPHONE .B32; ° (6) 
| 34 4E 45 4B 4F 54 QOOAO P.AAS: ASCII \TOKENG\ ; 
| O0A6 -BLKB 2 
00000006 O00A8 P.AAR: .LONG 6 : 
| 00000000" O00AC ADDRESS P.AAS : 
20 00080 P.AAU: <ASCII \ \ : 
90081 -BLKB 3 
90900001 00B4 P.AAT: .LONG 1 ; 
0000000' 00088 .ADDRESS P.AAU : 
0D OOOBC P.AAW: ASCII <13> : 
00080 .BLKB 3 
00000001 000CO P.AAV: .LONG 1 ; 
00000000" 000¢4 .ADDRESS P.AAW : 
-PSECT $CODE$,NOWRT,2 
007¢ 00000 .ENTRY PHNSDCL_COMMAND_LINE, Save R2,R3,R4,R5,R6  ; 0773 
56 0000V CF 9E 00002 MOVAB  PHNSQUEDE SMB, : 
55 0000" CF 9E 00007 MOVAB PHNS$GL_VIEWPORT SIZE, R5 : 
54 000000006 00 9€ 0000C MOVAB CLISGET_VALUE, R4 : 
53 0000' CF 9E 00013 MOVAB P.AAF, : 
5E AB AE 9E 00018 MOVAB -88(SP), SP : 
F4  =6AS) «OOF 0001C PUSHAB PHNSGQ_SWITCH_HOOK > 0781 
53 DD OOO01F PUSHL R : 
64 02 FB 00021 CALLS #2 CLISGET VALUE ; 
44 AE OA DO 00024 MOVL #0, > 0788 
48 AE 4C AE 9E 00028 MOVAB é BUF +e, Ooze _BUF +4 : 
44 AE 9F 0002D PUSHAB SIZE : 0790 
18 A3 9F 00030 PUSHAB AAR ; 
64 02 FB 00033 CALLS #3. CLISGET_VALUE : 
03 DD 00036 PUSHL : 0791 
04 DD 00038 PUSHL #4 : 
55 DD 0003A PUSHL ; 
50 AE 9F 0003C PUSHAB SIZE_BUF : 
000000006 00 04 FB 0003F CALLS #4, OTSSCVT_TI_L : 
01 50 D1 00046 CMPL STATUS, #1 : 0792 
18 12 00049 BNEQ $ : 
50 65 DO 00048 MOVL PHNSGL VIEWPORT SIZE. RO : 0793 
03 50 D1 0004E CMPL : 
03 18 00051 BGEQ : 
50 03 pO 00053 MOVL #3, RO ; 
OA 50 D1 00056 1$: CMPL RO. #10 : 
5 15 90059 BLEQ : 
50 A 00 00058 MOVL $10. RO ; 
65 50 00 0005 23: MOVL RO. PHNSGL_VIEWPORT_SIZE : 
03 11 00061 BRB : 
65 OA 00 90063 3$: MOVL #10, PHNSGL_VIEWPORT_SIZE > 0796 
28 «AS OF 00066 4S: PUSHAB P.AAJ : 0801 
000000006 00 01 FB 0069 CALLS #1, CLISPRESENT : 
06 «AS 50 90 00070 MOVE RO, PHN$GB_ SCROLL : 
52 01 pO 00074 MOVL : 0807 
6E 50 BF 9A 90077 5$: MOV ZBL 786 TOK > 0810 
04 AE 08 AE 9E 00078 MOVAB itn sures. UT OKEN _BUF +4 : 
3E DD 90080 PUSHL : 0812 
03 01 52 CF 00082 CASEL it ; 
001A 0014 000€ 0008 00086 6$: WORD $-65 _- ; 
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E 14.38 p-1984 
000 PHNSDCL_COMMAND_LINE = Get tennend Line Goodies 12: RTS 7 


4 18:53: 


:5 VAX=11 
:2 DISK$V men 


OKEN_BUF 

OKEN_ BUF 

3, STRSTRIM 
N_BUF 

- AAT 

ae PHNSQUEUE _SMB 


n2, PHNSQUEUE _SMB 
1, #4 
P. AAV 
#2, PHNSQUEUE _ SMB 


4.0-742 
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0813 
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0812. 
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0820 | 
0821. 
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Rsbttl *PHNSQUEUVE_SMB = Queue a Steering Message Block’ 
i Functional Description: 


his routine is called to create a Steering Message Block and 
queue in onto the SMB queue. 


—»_» 


Formal Parameters: 
type The type code for the SMB. 
text Address of descriptor of optional message text. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine phn$queue_smb(type,text): novalue = begin 
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bind ; 
086 text_dsc = .text: descriptor; 
086 
086 local 
0864 status: long, 
0865 smb_size: long, 
0866 s: ref smb; 
0867 ; 
builtin 
0869 nul lparameter; 
38 
0872 ! We begin by calculating the total size of the SMB and allocating 
th ! memory for it. 
0875 smb_size = smb_k_size + (if nullparameter(2) then 0 
0876 : else .text_dscllen]); 
0877 status = Lib$Sget_vm(smb_size,s); 
+44 check (.status); 
0880 ' Now we fill in the new SMB with its length, the message type code, 
th ! and the message text. We also build a descriptor for the message text. 
0888 shoud .u.Longth = .smb_size; 
0884 sCsmb_w_type] = .type; 
0885 begin 
0886 bind . 
0887 smb_msg_dsc = s{smb_q_msg]: descriptor; 
66 0888 7 
67 0889 if nullparameter(2) then 
68 0890 smb_msg_dscClen] = 0 
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2 
ep 
PHNSQUEUE_SMB = Queue a Steering “hessege Block ep 


! main Loop. 

status = insque(.s,.smb_queue_head[1)); 

if .status eqlu i then 
Ssetef(efn=phnSk_ smbe fn); 


return; 
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end; 


03FC 00000 
5E 08 C2 00002 
58 08 AC 00 00005 
02 6C 91 00009 
05 1F 0000C 
08 AC D5 O000E 
04 12 00011 
50 D4 00013 1$: 
03 11 00015 
50 68 3C€ 00017 2%: 
04 AE 14 AQ YE OOOIA 3$: 
5E DD OOOTF 
08 AE 9F 00021 
000000006 00 02 FB 00024 
59 50 00 00028 
09 59 «E8 it 
59 DD 00031 
000000006 00 01 FB 00033 
57 6E DO 0003A 4$ 
08 A? 04 AE B80 0003D 
OA A? 4 4 4 tk 
56 Cc UA E 0004 
02 6C 91 00048 
05 1F QO04E 
08 AC D5 Bones 
04 12 0005 
66 B4 00055 5$: 
OE 11 00057 
14 A? 04 =«2«B8 68 28 00059 6$: 
66 68 80 4 
04 A6 14 A? YE 90 6¢ 
50 04 bebe 7$: 
0000° ODF 67 95 0069 
02 12 O006E 


1986 93:53:28 
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69 0891 4 else ( 
70 Bas ch$move(. tere 3 cClen],. — t gsclotrd, ,sCsmb_t_msgbuf)); 
089 smb_msg_ dscf lén = .text_d 
0894 smb_msg_dsc(ptr] = sCsmb-t pnt 
0895 03 
+944 end; 
089 
0898 


' Now we can queue the new SMB onto the end of the yy message queue. 
! If the queue was empty, make sure we set the event flag to 


awaken the 


EXTRN SYSS$SETEF 
.ENTRY PHNSQUEUE_SMB, Save R2,R3,R4,R5,R6,R7,R8,R9 
SUBL2 , SP 
MOVL TEXT, R8 
CMPB ss); 2 
BLSSU.'1$ 
TSTL  8(AP) 

BNEQ 2$ 

CLRL = RO 

BRB 3$ 

MOVZWL (RB), RO 

MOVAB  20(RO), SMB_SIZE 
PUSHL SP 

PUSHAB SMB_SIZE 

CALLS #2, LIBSGET_VM 

OVL RO, STATUS 

LBS STATUS, 4$ 
PUSHL STATUS 
CALLS #1, LIBSSIGNAL 
MOVL SS, R? 

MOVW SMB SIZE, 8(R7) 

MOVW TYPE, 10(R7) 

MOVAB 12(R?), R6 
CMPBs«(AP), 2 

BLSSU‘5$ 

TSTL 8(AP) 

BNEQ 6$ 

CLRW 3s (R6) 

BRB 7$ 

MOVC3 (RB), a4(RB), 20(R7) 
MOVW (RB). (R6) 

MOVAB 20(R?7), 4(R6) 

CLRL = RO 

INSGUE {R7), @SMB_QUEUE_HEAD+4 
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TER: PHONE. SRC IPHONE .B32; 1 


; Routine Size: 132 bytes, Routine Base: S$CODE$ + 02E2 


0-74 
AE: s-32 V 42 Rage a 


0 D6 007 INCL RO ; 
59 D 007 8$: MOVL RO, STATUS : 
01 9 D1 0007 CMPL STATUS, #1 : 0903. 
09 12 00078 BNEQ ; | 
03 DD OO07A PUSHL # + 0904. 
000000006 00 01 FB 9007¢ CALLS #1, SYSS$SETEF : 
04 00083 9$: RET + 0908 
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PHONE = VAX/VMS Telephone Facilit 16 
PHNSKILL_SMB = Kill an Obsolete S 14-Sep-1984 


Liss-32 V4.0-742 Page 3 
MASTER: CPHONE.SRCJPHONE.B32;1 (8) 
Xsbttl 'PHNSKILL_SMB - Kill an Obsolete SMB’ | 


3 


return; 


1 
0910 1! 
boy 1 ! Functional Description: 
aig 1! his routine is called to deallocate an obsolete Steering 
09135 1! Message Block. 
0914 1! 
0915 1 ! Formal Parameters: 
b3y$ : } obsolete_smb Address of the obsolete SMB. | 
0918 1! Implicit popes: 
0919 +1! global data 
6369 1! 
0921 1! Implicit Outputs: 
$358 7 global data 
09 1! 
0924 1 ! Returned Value: 
0925 1! none 
0926 1! 
0927 1 ! Side Effects: 
0928 1! 
0494 1 !-- 
0930 1 
0931 1 : 
oot4 $ global routine phn$kill_smb(obsolete_smb): novalue = begin 
0934 2 bind 
0935 2 os = .obsolete_smb: smb; 
0936 2 
0937 2 local 
0938 2 status: long, 
0939 2 smb_size: long; 
0940 2 
0941 2 ; 
+44 § ! ALL we have to do is get the length of the SMB and deallocate it. 
0944 2 smb_size = .os{smb_w_length); 
0945 2 status = Lib$free_vmlsmb_size,obsolete_smb) ; 
946 § check (.status); 
2 
1 


end; 


0000 00000 .ENTRY PHNSKILL_SMB, Save nothing : 0932 
50 04 AC DO 00002 VL 9 SOLETE-SMB, R > 0935 
7E 08 Ao 3C 90006 MOV2WL 8(RO), SMB SIZE > 0944 
04 AC 9F QOOOA PUSHAB OBSOLETE_SMB > 0945 
000000006 00 = & Ripe CAS. Foe“ LIOSFREE_ VM 
09 4 EB 00017 LBS STATUS, 1$ ~ 0946 | 
50 DD OOO1A PUSHL STATUS : 
000000006 00 01 FB oo01c CALLS #1, LIBSSIGNAL : 
04 00023 1$: ET > 0949 


a> Se oe Fe FS HS FS 6S FS HES FEES FS FS CS HSER TSH HES FES HTS FSS HSCS HS HS HSCS FS HEHE *S STS FEHR TSS 


SRC IPHONE .B32; 


=-32 V4.0-742 
: CPHONE 


ER 


or 


SCODES + 0366 


phone Facilit 


PHNSKILL_SMB = Kill an Obsolete S 
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36 bytes, 


; Routine Size: 
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Bsbttl "ANLSPREPARE_USERS_TARGET - Prepare Target Entered by User' 


=2 | 


oc 


0951 

$326 "Funct tenet Description: 

095 i This routine is called to prepare a target entered by the user. 
0954 It performs a logical name translation in case the user entered 
Race a logical name. It also handles node names without the double colon. 
0957 i Formal Parameters: 

0958 users Begress of descriptor of user's target. 

0959 i ust_node A flag, true if target is just a node name. 

0960 i ina Address of Gover tpter of buffer to receive final 
bees target. We set the length. 

096 i Implicit Inputs: 

0964 i global data 

0965 i 

0966 Implicit Outputs: 

0967 : global data 

0968 i 

0969 i Returned Value: 

0970 i 

0971 i 

0972 i Side Effects: 

0973 i 

0974 in 

0975 

0976 
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global routine phn$prepare_users_target (users, just_node, final): novalue = begin 


bind 
users_dsc = .users: descriptor, 
final-dsc = .final: descriptor; 


local 
status: long; 


! First we try translating the user's target as if it were a pogreas name. 
! it that fails, we just move the target into the final buffer 


status = parenagt Seqnenuasery 2 
len=final “Gsct tend, 

; rslbuf=final—dsc); 
if .status opty 4 a P.tylognan Then ( 

final_d -users_dscClen]; Q 
i innovate Soto _dscClenJ>.users _dscCptr], -final_dscCptr]); 

else 
check (.status); 


! Now if this is supposed to be just a node name, the double colon is 
i optional. Add it if we need to. 


if .just node and ,final_dscClen] gtru 0 t 
ifc hneq(é,.fingl. dsc(ptrJ+ "final ye “2, 2,uplit byte ('::'),* ") then ¢ 
ch$move(2 ,Uplit byte (°:: final_dsc ptri+. final _dscClen]); 
; tinal_dscllen] = .final pe + 2; 
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; Routine Size: 91 bytes, Routine Base: $CODE$ + 038A 


691 1011 1 
692 1012 0 end eludom 


| PHONE PHONE = VAX/VMS Telephone Facility 16-Sep-1984 06:13:38 VAX=11 Bliss-32 V4.0-742 
v04-000 ANLSPREPARE_USERS_TARGET = Prepare Target Enter 14-Sep-1984 12:53:28 DISKSVMSMASTER: CPHONE . SRCJPHONE .B32; fag 
3; 687 1007 2 
; 688 1008 return; 
; 689 1009 
; 690 1010 1 end; 
-PSECT S$PLIT$S,NOWRT,NOEXE,2 
3A 3A QOOCB8 P.AAX: .ASCII \i:\ 
3A 3A OOOCA P.AAY: .ASCII \s:\ 
-EXTRN SYS$TRNLOG 
-PSECT S$CODE$,NOWRT,2 
007C 00000 ~ ENTRY + ppabinatha competes tetany Save R2,R3,R4,R5,- 
52 04 AC 00 00002 MOVL USERS, R2 
56 0c AC DO 00006 MOVL FINAL, R6 
7E 7C QOOOA CLRQ -(SP 
7E 04 0000C CLRL -(SP) 
56 DD OO0O0E PUSHL R6 
0044 8F BB 00010 PUSHR #*M<R2,R6> 
000000006 00 06 FB 00014 CALLS #6, SYSSTRNLOG 
00000154 8F 50 D1 0001B CMPL STATUS, #340 
0B 12 00022 BNEQ 1$ 
66 62 BO 00024 MOVW (R2), (R6) 
04 «86 04 «B2 62 28 00027 MOVC3 (R2), @4(R2), O4(R6) 
OC 11 0002D BRB 2$ 
09 50 E8 OO0O2F 1$: BLBS STATUS, 2$ 
50 DD 00032 PUSHL STATU 
000000006 00 01 FB 00034 CALLS #1, LIBSSIGNAL 
18 08 AC €E9 0003B 2$: BLBC Sust” ODE, 3$ 
66 BS 0003F TSTW (R6) 
17 13 00041 EQL 3$ 
50 66 3C 00043 MOVZWL (R6), RO 
50 04 Ab CO 00046 ADDL2 4(R6), RO 
0000" CF FE AO B1 OO04A CMPW -2(RO), P.AAX 
08 13 00050 BEQL 3$ 
60 0000' CF BO 00036 MOVW P.AAY, (RO) 
66 02 AO 0005 ADDW2 #2, (R6) 
04 0005A 3$: RET 


~-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
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D1 
| PHON PHONE = VAX/VMS Telephone Facility 16-Sep-1984 02:15:5 VAX-11 Bliss-32 V4.0-742 Pa 8 Pl 
| VOs"600 ANLSPREPARE USERS. TARGET - Prepare Target Enter 14- Sep-1984 9 £4333 DISKSVMSMASTER: CPHONE.SRC IPHONE .B32; 1 it 5 | VC 
; Name Bytes Attributes 
:  SOWNS 124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOPIC ALIGN(2) 
; $GLOBALS 49 NOVEC, WRT, RD yd ge NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
> SPLITS 204 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 997 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC ALIGN(2) 
Oe eal i i ak er OE shag aes SYRGOLG eocecens Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 35 0 581 00:00.7 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PHONE/OBJ=OBJ$:PHONE MSRC$:PHONE/UPDATE=(ENH$: PHONE ) 


; Size: 997 code + 377 data bytes * 
; Run Time: 00:14.9 

; Elapsed Time: 00:59.4 
; Lines/CPU Min: 4077 

; Lexemes/CPU-Min: 33215 

; ee | Used: 156 pages 
; Compilation Complete 
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